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SECTION  1 
INTRODUCTION 


To  construct  the  DDL  to  NDDL  TRANSLATORS,  the  following 
steps  must  be  executed. 

-  Precompile  the  program  with  embedded  NDML 

-  Generate  the  Translators  Request  Processor  Main  Program 

-  Compile  and  insert  into  the  object  library  (GENOLB)  the 
generated  Translators  Request  Processor  Main  Program 

-  Create  the  DB2  and  Total  Translator  Executables 

Section  2  lists  the  prerequisites  of  the  DDL  to  NDDL 
Translators.  Section  3  contains  the  step  by  step  instructions 
for  building  the  DB2  and  Total  Translators. 
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SECTION  2 
PREREQUISITES 


The  Prerequisites  to  creating  the  DDL  to  NDDL  TRANSLATORS 

environment  are: 

1.  Existence  of  an  object  library  DDLTOLB  in  the  directory 
cdmdir: [ tools. ddlt]  for  the  Impact  software. 

2.  Existence  of  an  object  library  GENOLB  in  the  directory 
cdmdir : [tools. ddlt]  for  the  generated  code. 

3.  Existence  of  a  a  FORMS  directory;  this  is  the  directory 
pointed  to  by  the  logical  IISSULIB. 

4.  All  the  software  must  be  compiled  and  placed  in  DDLTOLB 
according  to  normal  Integration  and  Testing  procedures. 

5.  The  NDDL  and  NDML  executables  must  be  available. 
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SECTION  3 

PROCEDURES  TO  BUILD  THE  TRANSLATOR  EXECUTABLES 


The  following  steps  must  be  executed  to  construct  the  DDL 
to  NDDL  Translator  Executables: 

1.  Precompile  and  compile  the  NDML-embedded  source  code. 
Proceed  as  follows: 

$@BLDTRAN 

PRECOMPILE  AND  COMPILE  A  GROUP  OF  PRC'S 


NAME  OF  THE  APPLICATION> :  TRANSL 

NAME  OF  THE  PRC  FILE  (C/R  TO  STOP,  LEAVE,  .PRC  OFF):  TVERDT 
NAME  OF  THE  PRC  FILE  (C/R  TO  STOP,  LEAVE,  .PRC  OFF):  <CR> 

NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED 

BEGIN  COMPILING  GENERATED  CODE 

RESULTS  OF  COMPILE  CAN  BE  FOUND  ON  TRANSL. MSG 

2.  Execute  the  procedure  file  LNKTRAN.COM  to  generate  the 
RP-MAIN,  compile  the  RP-MAIN,  and  place  in  GENOLB,  generate 
the  opt  files  and  link  the  applications.  The  two 
executables  that  will  be  created  are  TOTTRANZ.EXE  and 
D2TRANZ.EXE.  The  NTM  tables  are  updated  automatically. 
Proceed  as  follows: 

$  eLNKTRAN 

3.  Flan  the  file  TRANS. FDL.  The  form  definition  files  will 
be: 

TRANS . FD 

4.  Define  the  Translator  Functions  using  the  User  Interface 
utility  SYSGEN.  The  username,  password  and  role  are 
MORENC,  STANLEY  and  MANAGER  respectively.  The  DB2  function 
is  DB2TRANZ  and  the  DB2  application  is  GRDB2TRANZ.  The 
TOTAL  function  is  TOTTRANZ  and  the  TOTAL  application  is 
GRTOTTRANZ . 

The  following  pages  contain  listings  for: 

BLDTRAN.COM 

LNKTRAN.COM 


3-1 


UM  620341411 
30  September  1990 


$1 
$  I 

$i  BLDTRAN.COM 

$1 

$! 

$WS:=  WRITE  SYSSOUTPUT 

$DEFINE  IISSGLIB  "CDMDIR: [TOOLS. DDLT]GEN0 LB. OLB” 

$DEFINE  CDMTEMPS  ''CDMDIR:  [TOOLS.  DDLT. TEMPS ]  ” 

$WS  "PRECOMPILE  AND  COMPILE  A  GROUP  OF  PRC'S" 

$WS  " - " 

$  1 

$INQUIRE  AP  "  NAME  OF  THE  APPLICATION>" 

$  CREATE  'AP'.DAT 
$  OPEN/WRITE  NDMLIN  ' AP ' . IN 
$NEXT: 

$  INQUIRE  PRC  "NAME  OF  PRC  FILE  (C/R  TO  STOP,  LEAVE  .PRC  OFF)" 
$  IF  PRC  .EQS.  ""  THEN  GOTO  INDONE 
$  APPEND  ' PRC ' . PRC  ' AP ' . DAT 
$  GOTO  NEXT 
$  INDONE: 

$! 

$!  5/24/88:  FDL  stuff  added  in  because  NDML  now  requires  fixed 

$!  length  .DAT  files  since  conversion  to  FIOPS. 

$ ! 

$*OPEN/WRITE  FDLIN  CDMDIR: [ COM] FIX. FDL 


$ 

WRITE 

FDLIN 

” I DENT 

""23-FEB-1988  09:49:43 

VAX-11  FDL  Editor 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"SYSTEM” 

$ 

WRITE 

FDLIN 

II 

SOURCE 

VAX/ VMS" 

$ 

WRITE 

FDLIN 

II  II 

$ 

WRITE 

FDLIN 

"FILE" 

$ 

WRITE 

FDLIN 

It 

ALLOCATION 

391" 

$ 

WRITE 

FDLIN 

If 

BEST  TRY  CONTIGUOUS 

yes" 

$ 

WRITE 

FDLIN 

If 

EXTENSION 

39" 

$ 

WRIT^ 

FDLIN 

If 

ORGANIZATION 

sequential" 

$ 

WRITE 

FDLIN 

11  II 

$ 

WRITE 

FDLIN 

"RECORD" 

$ 

WRITE 

FDLIN 

II 

BLOCK  SPAN 

yes" 

$ 

WRITE 

FDLIN 

If 

CARRIAGE  CONTROL 

carriage_return" 

fixed" 

$ 

WRITE 

FDLIN 

If 

FORMAT 

$ 

WRITE 

FDLIN 

If 

SIZE 

80" 

$ 

CLOSE 

FDLIN 

$  CONVERT/PAD=%O40/FDL=CDMDIR: [COM]FIX.FDL  'AP'.DAT  'AP'.DAT 
$  WRITE  NDMLIN  "CDMTRAN  VAX  VAX  COBOL  NDML  COBOL","  ",AP,".DAT  ",AP,".ER 
$  CLOSE  NDMLIN 

$  OPEN/WRITE  EDIPRC  CDMDIR: [COM] EDIT. PROC 
$  WRITE  EDIPRC  "S/80/200/WH" 

$  WRITE  EDIPRC  "EXIT" 

$  CLOSE  EDIPRC 

$  EDIT/ COMMAND=CDMDIR: [COM] EDIT. PROC  CDMDIR: [COM] FIX. FDL 
$  DEASSIGN  SYS$OUTPUT 

$  CONVERT/PAD=%O40/FDL=CDMDIR: [COM]FIX.FDL  'AP'.IN  'AP'.IN 
$  DELETE  CDMDIR: [COM] FIX. FDL;*,  CDMDIR: [COM] EDIT. PROC ; * 

$ ! 

$!  INPUTS  TO  PRECOMPILER  ARE  NOW  SET  UP 
$!  GO  AHEAD  AND  RUN  IT: 

$  I 

$’assign/user_mode  sys$command  sys$input 
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$  RENAME  'AP'.IN  NDML.DAT 
$  ASSIGN  'AP'.OUT  SYS$OUTPUT 
$  RUNNDML 

$  delete  NDML.DAT;* 

$  1 

$’alldone: 

$  DEASSIGN  SYS$OUTPUT 

$! 

$!  check  the  .out  file  for  errors  in  precompiling 

$I 

$OPEN/READ  EFLE  'AP'.OUT 
$ZR:="0" 

$  NERRLOOP: 

$  READ/END_OF  FILE=COMPERR  EFLE  EREC 
$  LENG  =  ' Ff LENGTH ( EREC ) ' 

$  UN  =  'F$LOCATE("UNSUCC",EREC) ' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NERRLOOP 

$  UNI  =  'UN'  -  13 

$  UN2  =  'F$EXTRACT(UN1,1,EREC) ' 

$  IF  UN2  .EQS.  ZR  THEN  GOTO  NDMLGOOD 

$WS  "THE  PRECOMPILE  OF  ''AP'  HAS  "UN2'  UNSUCCESSFUL  ROUTINES" 
$WS  "CHECK  THE  ''AP'.ERR  FILE  FOR  ERRORS" 

$GOTO  EXIT 
$COMPERR; 

$WS  "PRECOMPILE  FAILED" 

$GOTO  EXIT 

$! 

$!  the  precompile  was  successful,  compile  the  code 
$  1 

$*  NDMLGOOD: 

$WS  "  " 

$WS  "NDML  PRECOMPILE  SUCCESSFULLY  COMPLETED" 

$WS  "BEGIN  COMPILING  GENERATED  CODE" 

$  DELETE  'AP'.DAT; 

$  NDMLGDRD: 

$  READ/END  OF_FILE  =  COMPERR  EFLE  EREC 
$  LENG  =  ■*'F$LENGTH(EREC)  ' 

$  UN  =  'F$LOCATE("==>  USE",  EREC)' 

$  IF  'UN'  .EQS.  'LENG'  THEN  GOTO  NDMLGDRD 

$! 

$ASSIGN  'AP'.MSG  SYS$OUTPUT 
$UN1  =  'UN'  +  8 

$NNAM:='F$EXTRACT( UN 1,30, EREC) ' 

$CLOSE  EFLE 
$  §'NNAM' 

$ DEASSIGN  SYS$OUTPUT 

$WS  "RESULTS  OF  COMPILE  CAN  BE  FOUND  ON  "AP'.MSG" 

$EXIT: 

$DEFINE  IISSGLIB  "CDMDIR: [TESTJGENOLB.OLB" 
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$ ! 

$ i  LNKTRAN . COM 

$!  THIS  USES  ORACLE  VERSION  5.1 

$! 

$  1 

$DEFINE/NOLOG  TOOLOLB  CDMDIR : [ TOOLS . DDLT ] DDLTOLB 
$DEFINE/NOLOG  IISSGLIB  ''CDMDIR:  [TOOLS .  DDLT]  GENOLB. OLB” 

$DEFINE/NOLOG  CDMTEMPS  CDMDIR: [TOOLS. DDLT. TEMPS] 

$if  pi  .eqs.  "N"  then  goto  linkTRAN 
$WS="WRITE  SYS$OUTPUT" 

$  LINK: 

$DEASSIGN  SYS$OUTPUT 
$WS  "  " 

$WS  "Beginning  Generation  of  Rp-Main" 

$LUW="CDMTRAN" 

$CDM="CDM/CDM" 

$1 

$!  generate  the  rp-main 

$!  NOTE:  this  is  done  automatically  if  you  link 

$! 

$! 

$!  set  up  .dat  file  to  send  to  genrpd 

$6pEN/WRITE  GENRPD.DAT  GENRPD.DAT 
$WRITE  GENRPD.DAT  LUW,  "  ",  CDM,  "  VAX" 

$  CLOSE  GENRPD.DAT 
$  OPEN/WRITE  FDLIN  FIX.FDL 

$  WRITE  FDLIN  "IDENT  ""23-FEB-1988  09:49:43  VAX-11  FDL  Editor""" 
$  WRITE  FDLIN  "  " 

$  WRITE  FDLIN  "SYSTEM" 

$  WRITE  FDLIN  "  SOURCE  VAX/VMS" 

$  WRITE  FDLIN  "  " 

$  WRITE  FDLIN  "FILE" 

$  WRITE  FDLIN  "  ALLOCATION  3" 

$  WRITE  FDLIN  "  BEST_TRY_CONTIGUOUS  yes" 

$  WRITE  FDLIN  "  EXTENSION  39" 

$  WRITE  FDLIN  "  ORGANIZATION  sequential" 

$  WRITE  FDLIN  "  " 

$  WRITE  FDLIN  "RECORD" 

$  WRITE  FDLIN  "  BLOCK_SPAN  yes" 

$  WRITE  FDLIN  "  CARRIAGE_CONTROL  carriage_return" 

$  WRITE  FDLIN  "  FORMAT  fixed" 

$  WRITE  FDLIN  "  SIZE  80" 

$  CLOSE  FDLIN 

$  CONVERT/ PAD=%O40/FDL=FIX  GENRPD.DAT  GENRPD.DAT 

$! 

$! 

$!  now  run  genrpd 

$ ! 

$ASSIGN/USER  MODE  SYS$COMMAND  SYS$INPUT 
$ASSIGN  'LUW‘*‘.RPD  SYS$OUTPUT 
$RUNGENRPD 

$ DEASSIGN  SYS$OUTPUT 
$  DELETE  GENRPD.DAT;*,  FIX.FDL;* 

$! 

$!  now  get  the  needed  information  to  compile  the  rp-main (s) 

$ ! 

$ASSIGN  'LUW'.RDCOMP  SYS$OUTPUT 
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$GENRPDFLAG  =  0 
$OPEN/READ  EFLE  'LUW'.RPD 
$  RDLOOP: 

$READ/END_OF  FILE=ENDMAIN  EFLE  EREC 
$  LENG  =  'F^LENGTHCEREC) ' 

$  DBMS  =  'F^LOCATEC'FOR  DBMS",  EREC)  ‘ 

$  UN  =  •F$LOCATE( "STORED  ON",  EREC)' 
$  MN  =  'F$LOCATE( "MODULE",  EREC)' 

$  DB  =  'F$LOCATE(''DATA  BASE",  EREC)' 
$  RM  =  'F$LOCATE( "REMOTE/",  EREC)' 

$  HST  =  ' F$LOCATE ( "RUN  AT" ,  EREC) ' 


$ 

IF 

•MN' 

.NES. 

'LENG' 

THEN 

GOTO 

SAVMODNM 

$ 

IF 

'DB' 

.NES. 

'LENG' 

THEN 

GOTO 

SAVDBN 

$ 

IF 

'RM' 

.NES. 

'LENG' 

THEN 

GOTO 

RMLC 

$ 

IF 

'HST' 

.NES. 

'LENG' 

THEN 

GOTO 

SAVEHST 

$ 

IF 

' DBMS ' 

.NES. 

'LENG' 

THEN 

GOTO 

SAVEDBMS 

$ 

IF 

'UN' 

.EQS. 

'LENG' 

THEN 

GOTO 

RDLOOP 

$GENRPDFLAG  =  1 
$UN1  =  'UN'  +  16 


$UNEND  =  'F$LOCATE(".",EREC)  -  UNI 
$PL  ;=  'F$EXTRACT(UN1,  UNEND,  EREC)' 

$IF  DBMSNM  .EQS.  "ORACLE"  THEN  GOTO  MAINPCC 

$WS  "A  NEW  DBMS  TYPE  MUST  BE  ADDED  TO  THE  MAIN  COMPILE  PART  OF  THIS  PROC 
$GOTO  EXIT 
$! 

$!  get  the  rp-main  mod  name 

$  1 

$*  SAVMODNM: 

$MN1  =  'MN'  +  7 

$RPMN1  :=  'F$EXTRACT(MN1,  10,  EREC)' 

$LENG  =  'F$LENGTH(RPMN1) ' 

$MN2  =  'F$LOCATE("ZZZ",  RPMNl) 

$IF  'MN2'  .EQS.  'LENG'  THEN  MODLOC  =  0 
$IF  'MN2'  .NES.  'LENG'  THEN  MODLOC  =  2 
$RPMN  :=  'F$EXTRACT (MODLOC,  5,  RPMNl) 

$GOTO  RDLOOP 

$! 

$!  get  the  remote/local  status 

$1 

$  RMLC: 

$RM1  =  'RM'  +  13 

$RMSW  :=  'F$EXTRACT(RM1,  1,  EREC)' 

$GOTO  RDLOOP 

$1 

$!  get  the  database  name 
$ ! 

$  SAVDBN: 

$DB1  =  'DB'  +  10 

$DBN  :=  'F$EXTRACT(DB1,  30,  EREC)' 

$GOTO  RDLOOP 

$! 

$!  get  the  host  name 

$! 

$  SAVEHST: 

$HST1  =  'HST'  +  7 

$HSTNM  :=  'F$EXTRACT(HST1,  3,  EREC)' 

$GOTO  RDLOOP 

$! 

$!  get  the  dbms  name 
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$1 

$  SAVEDBMS : 

$DBMS1  =  'DBMS'  +  9 

$DBMSNM  :=  ' F$EXTRACT (DBMSl ,  30,  EREC) 

$GOTO  RDLOOP 

$! 

$! 

$!  oracle  precompile  the  rp-main  (if  needed) 

$! 

$  MAINPCC: 

$PCC  INAME='PL' .TMP  LNAME= ' PL ' . ERR  USERID='CDM'  - 
ONAME='PL' .COB  INCLUDE=SYS$ORACLE:  HOST=COB74  MAXLITERAL=160  REBIND=YES 
$ON  ERROR  THEN  WS  "ORACLE  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 

$COBOL/ANS I_FORMAT/CHECK=ALL/COPY_LIST/CROSS_REFERENCE/OBJECT= ' PL ' . OBJ  - 
/FIPS=74/NOLIST/CHECK=ALL/STANDARD= (SYNTAX) /DEBUG=ALL  ' PL' . COB 
$ON  ERROR  THEN  WS  "COBOL  ERROR  IN  RP-MAIN  ''PL '.TMP" 

$ON  ERROR  THEN  GOTO  EXIT 
$ DELETE  'PL '.COB;* 

$ DELETE  'PL '.ERR;* 

$1 

$1  Compile  the  rpmain.c 

$! 

$vcc/debug/NOLIST/show= ( include) /standard=portable  - 

/noopt/OBJECT=CDMDIR: [ TOOLS. DDLT]RPMAIN.OBJ/DEFINE=VAX  RPMAIN.C 
$delete  rpmain.c;* 

$GOTO  RDLOOP 

$! 

$!  done  generating  rp-main 

$l 

$  ENDMAIN: 

$CLOSE  EFLE 
$DEASSIGN  SYS$OUTPUT 

$IF  GENRPDFLAG  .EQ.  0  THEN  GOTO  MAINERR 
$WS  "  " 

$WS  "GENERATION  OF  REQUEST  PROCESSOR  MAIN  COMPLETE" 

$GOTO  STARTLINK 

$! 

$!  there  was  an  error  in  generating  the  rp-main 

$! 

$  MAINERR: 

$WS  "THE  GENRPD  HAD  ERRORS.  EXAMINE  "LUW'.RPD" 

$GOTO  EXIT 
$ STARTLINK: 

$DELETE  ' LUW ' . RPD ; * 

$ DELETE  ' LUW ' . RDCOMP ; * 

$ DELETE  CMDIR: [RUNAREA] TOTTRANZ.EXE;* 

$DELETE  CMDIR: [RUNAREA] DB2TRANZ . EXE ; * 

$WRITE  SYS$OUTPUT  "  -  LINKING  TOTTRANZ.EXE  " 

$WRITE  SYS$OUTPUT  "  -  LINKING  DB2TRANZ.EXE  " 

$ ASSIGN  CDMTRAN.LINK  SYS$OUTPUT 

$! 

$!  inquire  p5  "ENTER  TWO  LETTER  NTM  DIRECTORY  PREFIX  " 

$!  inquire  p6  "ENTER  NTM  CLUSTER  FOR  THIS  RP  (TIV  OR  UIV)  " 

$1 

$P5  =  "GR" 

$P6  =  "UIV" 

$P1  =  "DB2TRAN" 

$! 
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$•  NTMTAB.COM 

$  1 

$i  15-APR-87 

$!  M.  DENMAN 

$  I 

$i  UPDATE  NTM  TABLES  APITBL.DAT,  APTTBL.DAT 
$1 
$  1 

$  *  FLAG=0 
$  P7=P5+P1 

$  OPEN/READ  APITBL.DAT  CMDIR: [RUNAREA] APITBL. DAT 
$  RDl: 

$  READ/END_OF_FILE=CHK  APITBL.DAT  ENTRY 
$  RPND=F$EXTRACT( 0,9, ENTRY) 

$  IF  RPND  .NES.  P7  THEN  GOTO  RDl 
$  FLAG=1 
$  CHK: 

$  CLOSE  APITBL.DAT 
$  IF  FLAG  .NES.  0  THEN  GOTO  NOUPD 
$  GOTO  UPD 
$  NOUPD; 

$  WRITE  SYS$OUTPUT  «  " 

$  WRITE  SYS$OUTPUT  "RP  MAIN  ALREADY  IN  NTM  TABLES” 

$  WRITE  SYS$OUTPUT  ”  ” 

$  GOTO  LINKTRAN 
$  UPD; 

$  RPAPI=P7+”Z”+P6+”1” 

$  RPAPT=P1+”Z9999010120001130N0" 

$  OPEN/ APPEND  APITBL.DAT  CMDIR; [RUNAREA] APITBL. DAT 
$  OPEN/ APPEND  APTTBL.DAT  CMDIR; [RUNAREA] APTTBL. DAT 
$  WRITE  APITBL.DAT  RPAPI 
$  WRITE  APTTBL.DAT  RPAPT 
$  CLOSE  APITBL.DAT 
$  CLOSE  APTTBL.DAT 
$  Pl=  "TOTTRAN” 

$  P7=P5+P1 

$  RPAPI=P7+”Z”+P6+”1” 

$  RPAPT=P1+”Z9999010120001130N0” 

$  OPEN/APPEND  APITBL.DAT  CMDIR; [RUNAREA] APITBL. DAT 
$  OPEN/ APPEND  APTTBL.DAT  CMDIR; [RUNAREA] APTTBL. DAT 
$  WRITE  APITBL.DAT  RPAPI 
$  WRITE  APTTBL.DAT  RPAPT 
$  CLOSE  APITBL.DAT 
$  CLOSE  APTTBL.DAT 
$  WRITE  SYS$OUTPUT  ”  ” 

$  WRITE  SYS$OUTPUT  "TWO  NTM  TABLES  UPDATED  WITH  RP  " 
$  WRITE  SYS$OUTPUT  "  " 

$  1 

$LINKTRAN; 

$@SYS$ORACLE;LFOR  CMDIR; [RUNAREA ]TOTTRANZ  - 
CDMDIR ; [ TOOLS . DDLT ] TOTTRAN . OBJ , - 
CDMDIR ; [ TOOLS . DDLT ] RPMAIN . OBJ , - 
•  pjj  I  ^  OBJ  “ 

CDMDIR; [COM]CDMI/OPTIONS, - 

SYSSORACLE ; SQLLIB/LIB, - 

uic ir; [ fe] feolb/inc= (fluierr) ,- 

CDMDIR ; [ COM ] CDMUI . OPT/OPT , - 

CDMDIR; [COM] CDMNTM. OPT/OPTIONS  N 

$§SYS$ORACLE;LFOR  CMDIR; [RUNAREA] DB2TRANZ  - 
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CDMDIR: [TOOLS. DDLT]DB2TRAN. OBJ, - 
CDMDIR : [ TOOLS . DDLT ] RPMAIN . OBJ , - 
I  PL • , OBJ  ” 

CDMDIR: [COM]CDMI/OPTIONS, - 
SYS$ORACLE : SQLLIB/LIB, - 
uidir: [fe]feolb/inc=(fluierr) 

CDMDIR: [COM]CDMUI.OPT/OPT,- 
CDMDIR: [COM] CDMNTM. OPT/OPTIONS  N 
$DEASSIGN  SYS$OUTPUT 

$DELETE  CDMTRAN.LINK;*,  RPMAIN. OBJ ,  'PL '.OBJ;* 
$WRITE  SYS$OUTPUT  "LINKING  COMPLETED" 
$DEFINE/NOLOG  IISSGLIB  "CDMDIR: [TEST]GENOLB.OLB" 
$DEASSIGN  TOOLOLB 
$! 
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